VERSION 5.00
Begin VB.Form frmLogin 
   Caption         =   "Logon Information"
   ClientHeight    =   2145
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5100
   ControlBox      =   0   'False
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2145
   ScaleWidth      =   5100
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtUserName 
      Height          =   285
      Left            =   2160
      MaxLength       =   50
      TabIndex        =   2
      Top             =   360
      Width           =   2655
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      Height          =   495
      Left            =   3960
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   1560
      Width           =   855
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   495
      Left            =   3000
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   1560
      Width           =   855
   End
   Begin VB.TextBox txtPassword 
      DataField       =   $"frmLogin.frx":030A
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   2160
      MaxLength       =   50
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   840
      Width           =   2655
   End
   Begin VB.Label Label2 
      Caption         =   "For the Beta test period the correct password is CEItest."
      Height          =   255
      Left            =   840
      TabIndex        =   6
      Top             =   1200
      Width           =   3975
   End
   Begin VB.Image Image1 
      Height          =   735
      Left            =   240
      Picture         =   "frmLogin.frx":03CE
      Stretch         =   -1  'True
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "Password"
      Height          =   255
      Left            =   1080
      TabIndex        =   3
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "User name"
      Height          =   255
      Left            =   1080
      TabIndex        =   1
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()

End

End Sub

Private Sub cmdOK_Click()

If UCase(txtPassword.Text) = "CEITEST" Then
    glbLoginName = txtUserName.Text
    frmContractor.Show
    Unload Me
    Exit Sub
End If

MsgBox "Your Password is incorrect. For the Beta test period the correct password is CEItest."

End Sub

Private Sub Form_Load()

   Dim buffer As String, entry As String
    Dim buffer2 As String, entry2 As String
    Dim startKey As String, subKeys As String, valName As String
    Dim subKeys2 As String, valName2 As String
    Dim dataType As Long
    Dim i As Integer

    ' acess system registry for required attributes
    startKey = "HKEY_LOCAL_MACHINE"
    subKeys = "software\Microsoft\Windows NT\CurrentVersion\Winlogon"
    subKeys2 = "Network\logon"
'    subKeys = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources"
'
'
'
'    'attrDispCount = 0
'
        valName = "DefaultUserName"
        valName2 = "UserName"
        buffer = ""
        buffer = sdaGetRegEntry(startKey, subKeys, valName, dataType)
        buffer2 = sdaGetRegEntry(startKey, subKeys2, valName2, dataType)
        If buffer <> "" And buffer <> Chr(0) Then ''

            entry = Trim(buffer)
        Else
            entry = Trim(buffer2)
        End If

    'MsgBox entry
    'MsgBox Str(Len(entry))
    'MsgBox Str(Asc(Right(entry, 1)))
    If Right(entry, 1) = Chr(0) Then
    '    MsgBox "thats it"
        entry = Left(entry, Len(entry) - 1)
    '    MsgBox entry
    '    MsgBox Str(Len(entry))
    '    MsgBox Str(Asc(Right(entry, 1)))
    End If
    
    txtUserName.Text = UCase(entry)
    
End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
    cmdOK_Click
End If

End Sub

Private Sub txtUserName_LostFocus()

    txtUserName.Text = UCase(txtUserName.Text)

End Sub
